100 REM ECHTZEITUHR STELLEN
110 CIA=56328:REM ANFANGSADRESSE VON CIA 1
120 PRINT"GEBEN SIE DIE GENAUE UHRZEIT EIN"
130 PRINT"   HHMMSS[157][157][157][157][157][157][157][157]";:INPUTZ$
140 HH=VAL(LEFT$(Z$,2))
150 MM=VAL(MID$(Z$,3,2))
160 SS=VAL(RIGHT$(Z$,2))
170 IFHH>23ORMM>59ORSS>59THENPRINT"EINGABEFEHLER":GOTO120
180 IF HH>12THENHH=HH-12:TM=1
190 POKE CIA+7, PEEK(CIA+7) AND 255-2^7
200 POKE CIA+6, PEEK(CIA+6) OR 2^7
210 Q= INT(HH/10)*16+HH-INT(HH/10)*10
220 IF TM=1 THEN Q=Q+128
230 POKE CIA+3,Q
240 Q= INT(MM/10)*16+MM-INT(MM/10)*10
250 POKE CIA+2,Q
260 Q= INT(SS/10)*16+SS-INT(SS/10)*10
270 POKE CIA+1,Q
280 POKE CIA+0,0: REM UHR STARTEN